home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / apple_events.tcl < prev    next >
Encoding:
Text File  |  1993-10-20  |  3.3 KB  |  96 lines  |  [TEXT/$Tcl]
  1.  
  2. aeload :externals:PROC_TEXTalis
  3.  
  4. aeopen UAHOURS
  5. aeclose UAHOURS
  6. aeopen ENGINE
  7. aeclose ENGINE
  8. aeopen AETOOL
  9. aeclose AETOOL
  10.  
  11. aeopen TOOL 'uAUp'
  12. aeclose TOOL
  13.  
  14. aeopen QUILL 'MOOT'
  15. aeclose QUILL
  16.  
  17. aeopen QUILL AEQuillSample
  18. aeclose QUILL
  19.  
  20. aesend UAHOURS uAcc aSSV +----list { [‘NODENAME=tbomb’,‘user_name=time’] }
  21.  
  22. puts stdout "[aesend UAHOURS aevt quit]"
  23. puts stdout "[aesend UAHOURS uAcc aCPS -----TEXT {741 1122}]"
  24. puts stdout "[aesend UAHOURS uAcc aCPS]"
  25.  
  26. puts stdout [aelist]
  27. puts stdout [getfinfo Fire:QUILL]
  28. 'aeQL' 'QUIL' lvbsIdm 02/17/92 23:57:12 02/19/92 22:33:52 0,156 219 0
  29. puts stdout  [getfinfo Fire:AEQuillSample]
  30. 'MOOT' 'APPL' lvBsIdm 03/06/91 13:47:57 04/26/91 15:17:45 125,104 0 45164
  31. puts stdout "[aesend ENGINE misc dosc -----TEXT {print  "Hello World, from your Engine!"}]"
  32. puts stdout  [aesend ENGINE -o misc dosc -----TEXT {print  "Hello World, from your Engine!"}]
  33. puts stdout  [aesend ENGINE -x misc dosc -----TEXT {format "Hello World, from your Engine!"}]
  34. puts stdout  [aesend ENGINE -o misc dosc +---- [ concat
  35.         {alis(«} [aecoerce TEXT "Fire:MPW:src:tickle:scripts:aetestrun.tcl" -x alis] {»)}]
  36.         ]
  37. puts stdout  [aesend ENGINE aevt odoc +---- [
  38.     concat {[alis(«} [aecoerce TEXT "Fire:MPW:src:tickle:scripts:aetestrun.tcl" -x alis] {»)]}
  39.     ]
  40.  
  41. aesend ENGINE aevt odoc ----- {[ alis(“Fire:ICE:Bell.NSF.911011”) ]}
  42.  
  43. aesend AETOOL aevt odoc +---- {[ alis(“Fire:ICE:Bell.NSF.911011”) ]}
  44. aesend QUILL aevt odoc +---- [concat {[ alis(«} [aecoerce TEXT "Fire:QUILL" -x alis] {») ]}]
  45.  
  46. puts stdout  [concat {[ alis(«} [aecoerce TEXT "Fire:QUILL" -x alis] {») ]}]
  47. puts stdout  [aecoerce TEXT "Fire:QUILL" -x alis]
  48. puts stdout  [concat {[ alis(«} [aecoerce TEXT "Fire:QUILL" -x alis] {») ]}]
  49. [ alis(« 0000000000A80002000004466972653A00000000000000000000000000000000000000000000000000000000FFFFFFFFFFFF055155494C4C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFF000000000000000000000000FFFFFFFF000000000000000000000000000000000002000A466972653A5155494C4CFFFF0000 ») ]
  50.  
  51. puts stdout  [concat "This " {is} " a test" { of this thing}]
  52.  
  53. puts stdout  [concat {[ alis(«} [aecoerce TEXT "Fire:MPW:src:tickle:•tclenv" -x alis] {») ]}]
  54.  
  55. aesend QUILL -i aevt odoc +---- [concat
  56.     {[ alis(«} [aecoerce TEXT "Fire:Quill" -x alis] {») ]}
  57.     ]
  58.  
  59. aeopen RENG "tclEngine,uAUeep01" "sky:PPCToolBox@*"
  60. aeclose RENG
  61.  
  62.  
  63. puts stdout  [aesend RENG aevt quit]
  64. foreach name [aesend RENG misc dosc -----TEXT {puts stdout  "Hello World, from your REMOTE Engine!"}] {
  65.     puts stdout  "$name\n" }
  66.  
  67. puts stdout  [aesend RENG misc dosc -----TEXT {menucmd Apple 1}]
  68. {TEXT} {Hello World, from your REMOTE Engine!}
  69.  
  70. puts stdout  [aetargets sky PPCToolBox *]
  71. {tclEngine} {uAUeep01}
  72. {tclEngine} {uAUeep01}
  73. puts stdout  [aetargets tbomb PPCToolbox *]
  74. {tickle} {uAUpep01}
  75. {AEQuillSample} {MOOTep01}
  76. {tickle} {uAUpep01}
  77. {tclEngine} {uAUeep01}
  78. {tclEngine} {uAUeep01}
  79. {tclEngine} {uAUeep01}
  80.  
  81. aeopen RFNDR "Finder,MACSep01" "sky:PPCToolBox@*"
  82. aeclose RFNDR
  83.  
  84. aesend RFNDR aevt sope +---- [concat
  85.     {alis(«} [aecoerce TEXT "Moo:bin:" -x alis] {»)}] +aesk [concat
  86.     {[ alis(«} [aecoerce TEXT "Moo:bin:word" -x alis] {») ]}]
  87.  
  88. puts stdout  [aesend RFNDR -t 120 aevt abou]
  89.  
  90. aeopen FNDR "Finder,MACSep01" "tbomb:PPCToolBox@*"
  91. aeclose FNDR
  92.  
  93. puts stdout  [aesend FNDR aevt abou]
  94. puts stdout  [aesend FNDR aevt quit]
  95.  
  96.